home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / database_manager[mirage_concepts_1984].nbz / m.boot (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  34 lines
  1. 0 IFA=0THENA=1:LOAD"MARG.MC",8,1
  2. 1 REM
  3. 2 REM MIRAGE ADVANCED REPORT GENERATOR
  4. 3 CH=1
  5. 4 POKE51,47:POKE52,159:POKE55,47:POKE56,159:POKE53272,23:POKE650,128:BK=0:BD=0
  6. 5 POKE 53281,BK:POKE 53280,BD:POKE646,CH
  7. 6 PRINT"[147][205][201][210][193][199][197][160][195][207][206][195][197][208][212][211], [201][206][195].[146]"
  8. 8 PRINT"[193][196][214][193][206][195][197][196][160][210][197][208][207][210][212][160][199][197][206][197][210][193][212][207][210]"
  9. 10 PRINT"[195][207][208][217][210][201][199][200][212][160]1984"
  10. 11 PRINT"[195][200][193][206][199][197][160][211][195][210][197][197][206][160][195][207][204][207][210][211]?[160]([217][160][207][210][160][206]) ";
  11. 12 FORI=1TO40:GET A$:IF A$=""THENNEXTI
  12. 13 IFA$<>""THEN19
  13. 14 PRINT" [146][157]";:FORI=1TO40:GETA$:IFA$=""THENNEXTI
  14. 15 IFA$=""THENPRINT" [157]";:GOTO12
  15. 19 IFA$="N" OR A$="[206]" THEN 40
  16. 20 IFA$<>"Y"ANDA$<>"[217]"THEN12
  17. 21 PRINTCHR$(13)"[145]";
  18. 22 PRINT"               [195][207][204][207][210][160][212][193][194][204][197][160][160][160][160][160][160][160][160][160][160]":PRINT
  19. 24 PRINT"      0 = BLACK      8 = ORANGE     "
  20. 26 PRINT"[160][160][160][160][160][160]1 = WHITE      9 = BROWN
  21. 28 [153]"      2 = RED       10 = LIGHT RED
  22. 29 PRINT"      3 = CYAN      11 = DARK GRAY
  23. 30 [153]"      4 = PURPLE    12 = GRAY
  24. 31 PRINT"      5 = GREEN     13 = LIGHT GREEN
  25. 32 [153]"      6 = BLUE      14 = LIGHT BLUE
  26. 33 PRINT"      7 = YELLOW    15 = LIGHT GRAY
  27. 35 [153]:[153]"          PEEKATNLEN(null)CHR$(null)(null)(null)(null)STR$CLOSELEN(null)(null)(null)(null)CLOSE";:[133] BK
  28. 36 [153]"          PEEK(null)(null)STR$VAL(null)CLOSELEN(null)(null)(null)(null)CLOSECLOSECLOSECLOSECLOSE";:[133]BD
  29. 37 [153]"          LENLEFT$ATN(null)ATNLEN(null)VAL(null)CLOSELEN(null)(null)(null)(null)CLOSECLOSE";:[133]CH:[137]5
  30. 40 [153][199](13)"ON      LOADING PROGRAM...PLEASE WAIT"
  31. 45 [151]646,BK:[151]251,CH
  32. 60 [153]:[153]"LOAD"[199](34)"MARG"[199](34)",8RUN"
  33. 65 [151]198,3:[151]631,13:[151]632,13:[153]"ONONONONONONONONON":[162]:[128]
  34.